set map732five(s,ns73)   "Mapping fra 73 til 5 brancher" /
cBol . (68203,68204)                                           
cPub . (72002,84101,84202,85202,86000,87880,90920)             
CCON . (41430)                                                 
cVar . (19000,
        35001,35002,35003,36000,
        01000,02000,03000,
        0600a,0600b,08090,
        10120,
        13150,16000,17000,18000,20000,21000,22000,23000,
        24000,25000,26000,27000,28000,29000,30000,31320,33000)   
cTje . (50000,
        64000,65000,66000,
        37390,45000,47000,49000,52000,55560,59600,68100,
        68300,69700,71000,72001,73000,74750,77000,78000,
        85101,93000,94000,95000,96000,97000,
        46000,51000,53000,58000,61000,62630,79000,80820)
/;

# set mapj2ps(ps,j) "Mapping commodities to producer" /
# ND . (01000, 02000, 03000, 0600a, 0600b, 08090, 10120,
#       13150, 16000, 17000, 18000, 20000, 21000, 22000,
#       23000, 24000, 25000, 26000, 27000, 28000, 29000,
#       30000, 31320, 33000, 19000, 35001, 35002, 35003,
#       36000, 37390, 45000, 47000, 49000, 52000, 55560,
#       59600, 69700, 71000, 72001, 73000, 74750, 77000,
#       78000, 85101, 93000, 94000, 95000, 96000, 97000,
#       41430, 46000, 51000, 53000, 58000, 61000, 62630,
#       79000, 80820, 50000, 64000, 65000, 66000, 68100,
#       68300, 72002, 84101, 84202, 85202, 86000, 87880,
#       90920)
# D .  (68203, 68204)
# /;

set mapnum52five(s,num5)   "Mapping unclassified imports" /
    cPub . (o)
    cVar . [e,p]
    cTje . (t,qs)
  /;